home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / kite.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-28  |  1.0 KB  |  43 lines
  1. 10  DIM A(12)         '"KITE" An interesting random color program.
  2. 20  KEY OFF           'taken from the "FAMILY COMPUTING MAGAZINE"
  3. 30  SCREEN O,1        'Volume 3 Number 4. April 1985,issue.
  4. 40  WIDTH 40          'This runs on an IBM-PC / color graphics card.
  5. 50  LOCATE ,,0
  6. 60  N=-1
  7. 70  FR=0
  8. 80  A(1)=20
  9. 90  FOR I=2 TO 12
  10. 100  A(I)=A(I-1)+INT(RND*3)-1
  11. 110  NEXT I
  12. 120  COLOR ,3,3
  13. 130  CLS
  14. 140  C1=INT(RND*15)+4
  15. 150  IF C1>15 THEN C1=C1-16
  16. 160  C2=INT (RND*15)+4
  17. 170  IF C2>15 THEN C2=C2-16
  18. 180  W=0
  19. 190  F1=INT(RND*2)-1
  20. 200  F2=INT(RND*2)-1
  21. 210  FOR I=2 TO 13
  22. 220  FOR J=-W TO W
  23. 230  COLOR C1
  24. 240  IF (F2 AND I/2=INT(I/2)) OR (NOT F2 AND FR) THEN COLOR  C2
  25. 250  IF F1 THEN LOCATE I,20+J
  26. 260  IF NOT F1 THEN LOCATE 7+J,I+13
  27. 270  PRINT CHR$(219)
  28. 280  IF J<W THEN FR=NOT FR
  29. 290  NEXT J
  30. 300  W=W-(I<7)+(I>=7)
  31. 310  NEXT I
  32. 320  FOR I=2 TO 12
  33. 330  X=A(I-1)+INT(RND*2)+N
  34. 340  IF ABS(X-A(I))>1 THEN X=X-SGN(X-A(I))
  35. 350  LOCATE I+11,A(I) : PRINT CHR$(32)
  36. 360  COLOR INT(RND*8)+8
  37. 370  A(I)=X
  38. 380  LOCATE I+11,X : PRINT CHR$(219)
  39. 390  NEXT I
  40. 400  IF RND<0.01 THEN N=NOT N
  41. 410  IF RND<0.1 THEN 140
  42. 420  GOTO 320
  43.